
  procedure TConfigFrm.SaveProperty;
  var
    Folder: string;
    Storage: TMemIniFile;
  begin
    Folder := IncludeTrailingBackSlash(GetApplicationConfigDir(cApplicationName));
    if ForceDirectories(Folder) then
    begin
      Storage := TMemIniFile.Create(Folder + ('configfrm.ini'));
      if WindowState = wsNormal then
      begin
        Storage.WriteInteger('TForm', 'Top', Top);
        Storage.WriteInteger('TForm', 'Left', Left);
        Storage.WriteInteger('TForm', 'Height', Height);
        Storage.WriteInteger('TForm', 'Width', Width);
      end;
      Storage.WriteInteger('TForm', 'WindowState', Ord(WindowState));

      Storage.WriteInteger('TComboBox', 'uAOption.ItemIndex' ,uAOption.ItemIndex);
      Storage.WriteInteger('TComboBox', 'uEOption.ItemIndex' ,uEOption.ItemIndex);
      Storage.WriteInteger('TComboBox', 'mOption.ItemIndex' ,mOption.ItemIndex);
      Storage.WriteInteger('TComboBox', 'dOption.ItemIndex' ,dOption.ItemIndex);

      Storage.WriteBool('TCheckBox', 'rOption.Checked' ,rOption.Checked);
      Storage.WriteBool('TCheckBox', 'sOption.Checked' ,sOption.Checked);
      Storage.WriteBool('TCheckBox', 'tOption.Checked' ,tOption.Checked);
      Storage.WriteBool('TCheckBox', 'cdAOption.Checked' ,cdAOption.Checked);

      Storage.WriteBool('TCheckBox', 'xCommand.Checked' ,xCommand.Checked);
      Storage.WriteBool('TCheckBox', 'cdEOption.Checked' ,cdEOption.Checked);

      Storage.WriteBool('TCheckBox', 'HideWithAddFrmOrExtractFrmOption.Checked' ,HideWithAddFrmOrExtractFrmOption.Checked);
      Storage.WriteBool('TCheckBox', 'HideWithTickFrmOption.Checked' ,HideWithTickFrmOption.Checked);
      Storage.WriteBool('TCheckBox', 'UpBtnCloseOption.Checked' ,UpBtnCloseOption.Checked);

      Storage.Free;
    end;
  end;
